home *** CD-ROM | disk | FTP | other *** search
/ Sinful Girls / Sinful Girls.iso / mview / mview.mst < prev    next >
Text File  |  1994-08-03  |  9KB  |  312 lines
  1. '' -----------------------------------------------------------------------
  2. ''                  MEDIAVIEW Picture Viewer Installation
  3. '' -----------------------------------------------------------------------
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'msdetect.inc'
  7.  
  8. CONST WELCOME       = 100
  9. CONST ASKQUIT       = 200
  10. CONST DESTPATH      = 300
  11. CONST EXITFAILURE   = 400
  12. CONST EXITQUIT      = 600
  13. CONST EXITSUCCESS   = 700
  14. CONST APPHELP       = 900
  15. CONST BADPATH       = 6400
  16.  
  17. CONST ASKQUITD      = 1000
  18. CONST APPHELPD      = 1100
  19. CONST BADPATHD      = 1200
  20. CONST DESTPATHD     = 1400
  21. CONST EXITFAILURED  = 1500
  22. CONST EXITQUITD     = 1600
  23. CONST EXITSUCCESSD  = 1700
  24.  
  25. CONST LOGO = 1
  26.  
  27. GLOBAL DEST$        
  28. GLOBAL OPTCUR$     
  29. GLOBAL BUTT$
  30.  
  31. DECLARE SUB Install
  32. DECLARE SUB DInstall
  33. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  34.  
  35. INIT:
  36.     CUIDLL$ = "mscuistf.dll"       
  37.     HELPPROC$ = "FHelpDlgProc"     
  38.  
  39.     SetBitmap CUIDLL$, LOGO
  40.     SetTitle "mediaview installation"
  41.  
  42.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  43.     IF szInf$ = "" THEN
  44.         szInf$ = GetSymbolValue("STF_CWDDIR") + "mview.inf"
  45.     END IF
  46.     ReadInfFile szInf$
  47.  
  48.     BUTT$ = "1"  
  49.     OPTCUR$ = "1"
  50.     DEST$ = "C:\MVIEW"
  51.  
  52.  
  53. WELCOME:
  54.     sz$ = UIStartDlg( CUIDLL$, WELCOME, "FRadioDlgProc", 0, "" )
  55.     IF sz$ = "CONTINUE" THEN
  56.         BUTT$ = GetSymbolValue("ButtonChecked")
  57.         UIPop 1
  58.     ELSE
  59.         BUTT$ = GetSymbolValue("ButtonChecked")
  60.         IF BUTT$ = "2" THEN
  61.            GOSUB ASKQUITD
  62.         ELSE
  63.            GOSUB ASKQUIT
  64.         END IF
  65.         GOTO WELCOME
  66.     END IF
  67.  
  68. '' -----------------------------------------------------------------------
  69. ''                  Continue English or German?
  70. '' -----------------------------------------------------------------------
  71.  
  72.     IF BUTT$ = "2" THEN
  73.         GOTO CONTINUEGERM
  74.     END IF
  75.  
  76. '' -----------------------------------------------------------------------
  77. '' English
  78. '' -----------------------------------------------------------------------
  79.  
  80. GETPATH:
  81.     SetSymbolValue "EditTextIn", DEST$
  82.     SetSymbolValue "EditFocus", "END"
  83. GETPATHL1:
  84.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  85.     DEST$ = GetSymbolValue("EditTextOut")
  86.  
  87.     IF sz$ = "CONTINUE" THEN
  88.         IF IsDirWritable(DEST$) = 0 THEN
  89.             GOSUB BADPATH
  90.             GOTO GETPATHL1
  91.         END IF
  92.         UIPop 1
  93.     ELSEIF sz$ = "REACTIVATE" THEN
  94.         GOTO GETPATHL1
  95.     ELSEIF sz$ = "BACK" THEN
  96.         UIPop 1
  97.         GOTO WELCOME
  98.     ELSE
  99.         GOSUB ASKQUIT
  100.         GOTO GETPATH
  101.     END IF
  102.  
  103.     Install
  104.  
  105. QUIT:
  106.     ON ERROR GOTO ERRQUIT
  107.  
  108.     IF ERR = 0 THEN
  109.         IF BUTT$ = "2" THEN
  110.            dlg% = EXITSUCCESSD
  111.         ELSE
  112.            dlg% = EXITSUCCESS
  113.         END IF
  114.     ELSEIF ERR = STFQUIT THEN
  115.         IF BUTT$ = "2" THEN
  116.            dlg% = EXITQUITD
  117.         ELSE
  118.            dlg% = EXITQUIT
  119.         END IF
  120.     ELSE
  121.         IF BUTT$ = "2" THEN
  122.            dlg% = EXITFAILURED
  123.         ELSE
  124.            dlg% = EXITFAILURE
  125.         END IF
  126.     END IF
  127. QUITL1:
  128.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  129.     IF sz$ = "REACTIVATE" THEN
  130.         GOTO QUITL1
  131.     END IF
  132.     UIPop 1
  133.     END
  134.  
  135.  
  136. ERRQUIT:
  137.     IF BUTT$ = "2" THEN
  138.        i% = DoMsgBox("mediaview Installationsdateien zerst÷rt!", "mediaview Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  139.     ELSE
  140.     i% = DoMsgBox("mediaview installation files are corrupted!", "mediaview Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  141.     END IF
  142.     END
  143.  
  144.  
  145. BADPATH:
  146.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  147.     IF sz$ = "REACTIVATE" THEN
  148.         GOTO BADPATH
  149.     END IF
  150.     UIPop 1
  151.     RETURN
  152.  
  153.  
  154. ASKQUIT:
  155.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  156.  
  157.     IF sz$ = "EXIT" THEN
  158.         UIPopAll
  159.         ERROR STFQUIT
  160.     ELSEIF sz$ = "REACTIVATE" THEN
  161.         GOTO ASKQUIT
  162.     ELSE
  163.         UIPop 1
  164.     END IF
  165.     RETURN
  166.  
  167.  
  168. SUB Install STATIC
  169.  
  170.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  171.     CreateDir DEST$, cmoNone
  172.  
  173.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  174.     CopyFilesInCopyList
  175.  
  176.     CreateProgmanGroup "mediaview", "", cmoNone
  177.     ShowProgmanGroup   "mediaview", 1, cmoNone
  178.     CreateProgmanItem  "mediaview", "mediaview", MakePath(DEST$,"mview.exe"), "", cmoOverwrite
  179.     CreateProgmanItem  "mediaview", "README.TXT", "notepad.exe "+MakePath(DEST$,"README.TXT"), "", cmoOverwrite
  180.  
  181.     windir$ = GetWindowsDir()
  182.     CopyFile DEST$+"\"+"mvscr.scr", windir$+"mvscr.scr", cmoOverwrite , 0 
  183.  
  184.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "xPosition", "20", cmoOverwrite
  185.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "yPosition", "20", cmoOverwrite
  186.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "ChangeBMP", "30", cmoOverwrite
  187.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "ChangePOS", "8",  cmoOverwrite
  188.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "PWProtected", "0", cmoOverwrite
  189.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "CDPath", SrcDir$+"256clr", cmoOverwrite
  190.  
  191.  
  192. END SUB
  193.  
  194. '' -----------------------------------------------------------------------
  195. '' German
  196. '' -----------------------------------------------------------------------
  197.  
  198. CONTINUEGERM:
  199.     SetSymbolValue "EditTextIn", DEST$
  200.     SetSymbolValue "EditFocus", "END"
  201. GETPATHL2:
  202.     sz$ = UIStartDlg(CUIDLL$, DESTPATHD, "FEditDlgProc", APPHELPD, HELPPROC$)
  203.     DEST$ = GetSymbolValue("EditTextOut")
  204.  
  205.     IF sz$ = "CONTINUE" THEN
  206.         IF IsDirWritable(DEST$) = 0 THEN
  207.             GOSUB BADPATHD
  208.             GOTO GETPATHL2
  209.         END IF
  210.         UIPop 1
  211.     ELSEIF sz$ = "REACTIVATE" THEN
  212.         GOTO GETPATHL2
  213.     ELSEIF sz$ = "BACK" THEN
  214.         UIPop 1
  215.         GOTO WELCOME
  216.     ELSE
  217.         GOSUB ASKQUITD
  218.         GOTO CONTINUEGERM
  219.     END IF
  220.  
  221.     DInstall
  222.  
  223.     IF ERR = 0 THEN
  224.         dlg% = EXITSUCCESSD
  225.     ELSEIF ERR = STFQUIT THEN
  226.         dlg% = EXITQUITD
  227.     ELSE
  228.         dlg% = EXITFAILURED
  229.     END IF
  230. QUITL2:
  231.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  232.     IF sz$ = "REACTIVATE" THEN
  233.         GOTO QUITL2
  234.     END IF
  235.     UIPop 1
  236.  
  237.     END
  238.  
  239.  
  240. BADPATHD:
  241.     sz$ = UIStartDlg(CUIDLL$, BADPATHD, "FInfo0DlgProc", 0, "")
  242.     IF sz$ = "REACTIVATE" THEN
  243.         GOTO BADPATHD
  244.     END IF
  245.     UIPop 1
  246.     RETURN
  247.  
  248. ASKQUITD:
  249.     sz$ = UIStartDlg( CUIDLL$, ASKQUITD, "FQuitDlgProc", 0, "")
  250.  
  251.     IF sz$ = "EXIT" THEN
  252.         UIPopAll
  253.         ERROR STFQUIT
  254.     ELSEIF sz$ = "REACTIVATE" THEN
  255.         GOTO ASKQUITD
  256.     ELSE
  257.         UIPop 1
  258.     END IF
  259.     RETURN
  260.  
  261. SUB DInstall STATIC
  262.  
  263.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  264.     CreateDir DEST$, cmoNone
  265.  
  266.     AddSectionFilesToCopyList "Dateien", SrcDir$, DEST$
  267.     CopyFilesInCopyList
  268.  
  269. ''  alte EXE files in jedem Fall löschen
  270.  
  271.     RemoveFile DEST$+"\"+"mview.exe", cmoForce
  272.     RemoveFile DEST$+"\"+"mvscr.scr", cmoForce
  273.     RemoveFile DEST$+"\"+"mview.hlp", cmoForce
  274.     RemoveFile DEST$+"\"+"readme.txt", cmoForce
  275.  
  276.     RenameFile DEST$+"\"+"mviewd.exe",  "mview.exe"
  277.     RenameFile DEST$+"\"+"mvscrd.scr",  "mvscr.scr"
  278.     RenameFile DEST$+"\"+"mviewd.hlp",  "mview.hlp"
  279.     RenameFile DEST$+"\"+"readmed.txt", "readme.txt"
  280.  
  281.     CreateProgmanGroup "mediaview", "", cmoNone
  282.     ShowProgmanGroup   "mediaview", 1, cmoNone
  283.     CreateProgmanItem  "mediaview", "mediaview", MakePath(DEST$,"mview.exe"), "", cmoOverwrite
  284.     CreateProgmanItem  "mediaview", "README.TXT", "notepad.exe "+MakePath(DEST$,"README.TXT"), "", cmoOverwrite
  285.  
  286.     windir$ = GetWindowsDir()
  287.     CopyFile DEST$+"\"+"mvscr.scr", windir$+"mvscr.scr", cmoOverwrite , 0 
  288.  
  289.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "xPosition", "20", cmoOverwrite
  290.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "yPosition", "20", cmoOverwrite
  291.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "ChangeBMP", "30", cmoOverwrite
  292.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "ChangePOS", "8",  cmoOverwrite
  293.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "PWProtected", "0", cmoOverwrite
  294.     CreateIniKeyValue windir$+"control.ini", "ScreenSaver.Mediaview" , "CDPath", SrcDir$+"256clr", cmoOverwrite
  295.  
  296.  
  297. END SUB
  298.  
  299.  
  300. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  301.     IF szDir$ = "" THEN
  302.         MakePath = szFile$
  303.     ELSEIF szFile$ = "" THEN
  304.         MakePath = szDir$
  305.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  306.         MakePath = szDir$ + szFile$
  307.     ELSE
  308.         MakePath = szDir$ + "\" + szFile$
  309.     END IF
  310. END FUNCTION
  311.  
  312.